0 print"{clear}{white}{reverse on}";:fori=0to22:print"{down}";:next:fori=0to30:print"E{down}{left} {up}";:next:print"{home}";:poke2041,132:poke2040,130:m=2:v=53248:x=140:f=128:y=34:pokev+32,14
1 u=0:pokev+33,14:pokev+21,3:pokev+28,3:pokev+37,0:pokev+38,7:pokev+39,6:pokev+40,5:pokev+1,220:pokev+2,100
2 fori=0to319:poke8192+i,0:next:forj=0to4:fori=0to15:reada,b:poke8192+i*3+j*64,a:poke8193+i*3+j*64,b:next:next:pokev+30,0
3 f=f+1/3:ifpeek(56320)=123thenu=u-.25:poke2040,128+(fand1):data2,160,10,168,42,170,13,252,15,252,3,240,,192,2,160,10,168
4 ifpeek(56320)=119thenu=u+.25:poke2040,130+(fand1):data50,163,2,160,2,160,10,40,5,20,21,20,,84,2,160,10,168,42
5 x=(x+u)and255:y=y+m:pokev+3,y:pokev,x:if(peek(v+30)and1)=0andy<=250then3:data170,13,252,15,252,3,240,,192,2,160,2,160
6 ify<=250thenpoke54296,15:poke54296,0:s=s+1:m=m+.2:print"{home}{red}{reverse off}score:{yellow}"s:y=34:pokev+3,y:pokev+2,rnd(1)*200+50:pokev+30,0:goto3
7 print"{home}{down*2}{blue}game over!":data2,160,2,224,2,160,2,160,1,80,1,80,5,80,2,160,10,168,42,170,15,220,15,252,3,240,,192,2,160,10,168
8 data50,163,2,160,2,160,10,40,5,20,5,21,5,64,2,160,10,168,42,170,15,220,15,252,3,240,,192,2,160,2,160,2,160,2,224,2,160
9 data2,160,1,80,1,80,1,84,1,0,0,64,2,128,10,160,11,160,46,168,46,168,42,168,42,168,10,160,,,,,,,,,,,,